From 738bac2133553999c495a0922af364e60b874359 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 23 Apr 2001 12:30:39 +0000 Subject: [PATCH] (fortune-from-region): Use `eq' instead of `eql'. --- lisp/play/fortune.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/play/fortune.el b/lisp/play/fortune.el index 0ae1a841f43..3ab616b9b31 100644 --- a/lisp/play/fortune.el +++ b/lisp/play/fortune.el @@ -201,9 +201,9 @@ read the file name to use. Otherwise use the value of `fortune-file'." (point-max) t)) (if help-point (setq newsgroup (buffer-substring (match-beginning 1) help-point)) - (setq newsgroup (if (or (eql major-mode 'gnus-article-mode) - (eql major-mode 'vm-mode) - (eql major-mode 'rmail-mode)) + (setq newsgroup (if (or (eq major-mode 'gnus-article-mode) + (eq major-mode 'vm-mode) + (eq major-mode 'rmail-mode)) fortune-from-mail "unknown")))) -- 2.30.2